home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Utilities / DeskTop Navigation / PortFolio / Home / Home / card_5438.txt < prev    next >
Encoding:
Text File  |  1988-03-25  |  5.2 KB  |  273 lines
  1. -- card: 5438 from stack: in
  2. -- bmap block id: 6863
  3. -- flags: 4000
  4. -- background id: 2282
  5. -- name: Stacks
  6. ----- HyperTalk script -----
  7. --
  8. -- ARROW KEYS
  9. --
  10.  
  11. On ArrowKey which
  12.   If which is "right" then
  13.     Visual effect barn door open
  14.     Go to card "Button Help"
  15.   End if
  16.   If which is "Left" then
  17.     Visual effect barn door open
  18.     Go to first card of this stack
  19.   End if
  20.   If which is "Up" then
  21.     Visual effect barn door open
  22.     Go to first card of this stack
  23.   End if
  24.   If which is "Down" then
  25.     Visual effect barn door open
  26.     DoMenu Back
  27.   End if
  28. End ArrowKey
  29.  
  30. --
  31. -- DOMENU which
  32. --
  33.  
  34. on doMenu which
  35.   if which = "New Card" then
  36.     play Alert
  37.     answer "ALERT: you can add a new card here." with "OK"
  38.     exit doMenu
  39.   end if
  40.   pass doMenu
  41. end doMenu which
  42.  
  43.  
  44.  
  45. -- part 1 (field)
  46. -- low flags: 00
  47. -- high flags: 4007
  48. -- rect: left=109 top=35 right=342 bottom=512
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 3
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: paths
  57. ----- HyperTalk script -----
  58. --
  59. -- CLOSE FIELD
  60. --
  61.  
  62. On CloseField
  63.   Global Stacks,Applications,Documents
  64.   Put card field "paths" of card "stacks" into stacks
  65.   Put card field "paths" of card "applications" into applications
  66.   Put card field "paths" of card "documents" into documents
  67. End CloseField
  68.  
  69.  
  70.  
  71. -- part 2 (field)
  72. -- low flags: 01
  73. -- high flags: 0002
  74. -- rect: left=109 top=19 right=36 bottom=512
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: 
  83.  
  84.  
  85. -- part 6 (button)
  86. -- low flags: 00
  87. -- high flags: 2000
  88. -- rect: left=89 top=322 right=335 bottom=104
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Next Button
  97. ----- HyperTalk script -----
  98. --
  99. -- MOUSE DOWN ( BUTTON NEXT )
  100. --
  101.  
  102. On MouseDown
  103.   If the CommandKey is down then exit MouseDown
  104.   Visual effect barn door open
  105.   Go to card "Button Help"
  106. End MouseDown
  107.  
  108.  
  109.  
  110.  
  111. -- part 7 (button)
  112. -- low flags: 00
  113. -- high flags: 2000
  114. -- rect: left=68 top=322 right=335 bottom=83
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Prev Button
  123. ----- HyperTalk script -----
  124. --
  125. -- MOUSE DOWN ( BUTTON PREVIOUS )
  126. --
  127.  
  128. On MouseDown
  129.   If the CommandKey is down then exit MouseDown
  130.   Visual effect barn door open
  131.   Go to first card of this stack
  132. End MouseDown
  133.  
  134.  
  135.  
  136.  
  137. -- part 11 (button)
  138. -- low flags: 00
  139. -- high flags: 2000
  140. -- rect: left=56 top=101 right=138 bottom=106
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Add Button
  149. ----- HyperTalk script -----
  150. --
  151. -- MOUSE DOWN
  152. --
  153.  
  154. On MouseDown
  155.   If the CommandKey is down then exit MouseDown
  156.   Put 106 into horiz
  157.   Put 102 into vert
  158.   Get PopUpMenu("Add Stack...;(-;Add Application...;"& "(-;Add Document...;(-;Add Desk Accessory...",0, vert, horiz)
  159.   Set hilite of card button "Add Button" to false
  160.   If it < "1" then
  161.     Exit MouseDown
  162.   End if
  163.   Play buzzer1
  164.   Answer "That command is not available on this card." with "OK"
  165. End MouseDown
  166.  
  167.  
  168.  
  169.  
  170. -- part 12 (button)
  171. -- low flags: 00
  172. -- high flags: 2000
  173. -- rect: left=3 top=171 right=187 bottom=106
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Null Button
  182. ----- HyperTalk script -----
  183. --
  184. -- MOSUE DOWN
  185. --
  186.  
  187. On MouseDown
  188.   If the CommandKey is down then exit MouseDown
  189.   Play buzzer1
  190.   Answer "That command is not available on this card." with "OK"
  191. End MouseDown
  192.  
  193.  
  194.  
  195. -- part 13 (button)
  196. -- low flags: 00
  197. -- high flags: 2000
  198. -- rect: left=3 top=153 right=169 bottom=106
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Null Button
  207. ----- HyperTalk script -----
  208. --
  209. -- MOUSE DOWN
  210. --
  211.  
  212. On MouseDown
  213.   If the CommandKey is down then exit MouseDown
  214.   Play buzzer1
  215.   Answer "That command is not available on this card." with "OK"
  216. End MouseDown
  217.  
  218.  
  219.  
  220. -- part contents for card part 1
  221. ----- text -----
  222. :HyperCard Stacks:
  223. :More Stacks:
  224. :My Stacks:
  225. :Help Stacks:
  226. :Idea Stacks:
  227. HyperCard & Stacks:More Stacks:
  228. HyperCard Help:Help Stacks:
  229. HyperCard Ideas:Idea Stacks:
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239. -- part contents for card part 2
  240. ----- text -----
  241. Look for Stacks in:
  242.  
  243. -- part contents for background part 238
  244. ----- text -----
  245. 8:59 AM
  246.  
  247. -- part contents for background part 237
  248. ----- text -----
  249. Friday, March 25, 1988
  250.  
  251. -- part contents for background part 232
  252. ----- text -----
  253. 363.3K
  254.  
  255. -- part contents for background part 233
  256. ----- text -----
  257. 0.0K
  258.  
  259. -- part contents for background part 234
  260. ----- text -----
  261. 41808.0K
  262.  
  263. -- part contents for background part 246
  264. ----- text -----
  265. Use Name & Icon
  266.  
  267. -- part contents for background part 245
  268. ----- text -----
  269. Skip HyperLaunch
  270.  
  271. -- part contents for background part 255
  272. ----- text -----
  273. Hide Menu Bar